home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / makescreen.gc < prev    next >
Text File  |  1999-05-14  |  1KB  |  41 lines
  1. G4C
  2.  
  3. WinBig  -1 -1  400 90 "Our very own window"
  4. WinType 11110001
  5. Screen TutorialScreen        ; Specify the screen to open on
  6.  
  7.  
  8. xOnLoad
  9.     ; ---- We must make the screen before we open the window
  10.     ;          ScreenName   Depth   Title
  11.     ;               |         |       |
  12.     MakeScreen TutorialScreen 5 "Our very own screen"
  13.  
  14.     ;      Now we can open the window on the screen
  15.     guiopen MakeScreen.gc
  16.  
  17.  
  18. xOnClose
  19.    GuiClose MakeScreen.gc       ; Close the window first
  20.    KillScreen TutorialScreen    ; Then kill the screen
  21.    Guiquit MakeScreen.gc        ; Now it's safe to quit
  22.  
  23.  
  24. ;   The contents of our window.  All this is easy.
  25.  
  26. xPALETTE 300 1 100 24
  27.  
  28. Text 12 2 290 9 'This palette is just a quick and clear' 40 NOBOX
  29. Text 12 10 290 9 'indicator of the "depth" of this' 40 NOBOX
  30. Text 12 18 290 9 'screen.       32 colours : Depth = 5' 40 NOBOX
  31.  
  32. Text 12 40 290 9 'You want more proof that this is our own screen?' 50 NOBOX
  33. Text 12 50 290 9 'Grab the screen title bar and slide it down.' 50 NOBOX
  34. Text 112 60 290 9 'Need I say more?' 16 NOBOX
  35.  
  36. xButton 60 74 250 12 "Click here if you're impressed"
  37.     gadid 1
  38.     Changearg MakeScreen.gc 1 4 "I thought you'd like it."
  39.     Redraw MakeScreen.gc
  40.  
  41.